function [ v ] = solver( A0, f ,m ,n, k)
%SOLVER Summary of this function goes here
%   Detailed explanation goes here

assert(length(f) == size(A0,1));
assert(length(f) == size(A0,2));

global A;
global P;
global dimm;

[A,P,dimm] = prepareAll(m, n, A0, k);

v = fmg(f, 3, 3, 3, 1, k);

end

